header random
{
	// The following script shows the built in random number global functions...
	// By Mauro Grassi...

	// Override the default behaviour, we want it to run only once...
	execMode=#execModeNoRestart;
	
}

script random
{
	$B[100]=0;
	$A=1;
	$counter=0;
	print "The following 100 numbers are randomly generated between 1 and 1000: ", newline;
	@@initRandom(1000, 41);
	while($A<=100)
	{
			// store the prime number...
			$R=@@rnd(1000);
			$B[$counter]=$R;
			if(($counter % 8)==0)
			{
				print $R;
			}
			else
			if(($counter % 8)==7)
			{
				print ", ", $R, newline;	
			}
			else
			{
				print ", ", $R;
			}
			$counter=$counter+1;
			$A=$A+1;
	}

	print newline, "There were exactly ", $counter, " numbers generated.", newline;
	print "Their sum is: ", @@sum(&$B, $counter), newline;
}
